IF exists(SELECT * FROM dbo.sysobjects WHERE name='fr_XMLTotalen' AND xtype='P') 
BEGIN
	DROP PROCEDURE fr_XMLTotalen
END
GO

CREATE       procedure fr_XMLTotalen(
	@versie float,
	@aard char(1),@periode char(2),
	@inschrijvingsNr char(7),@groepsnaam varchar(20),
	@hoofdNr int,@test bit)
as
set nocount on
-----------------------------------------------------------
--  De vakken met code 'AT' worden beschouwd als totalen.
-----------------------------------------------------------
if (@test=1)
begin
  insert into fr_tussen(versie,hoofdNr,tussenNr,volgNr,tekst)
  values(@versie,@hoofdNr,'0','0','<totaal>')

  insert into fr_tussen(versie,hoofdNr,tussenNr,volgNr,tekst)
  select distinct @versie,@hoofdNr,'AT','1','<' + code + '>91</' + code + '>' 
    from fr_individueleRekenwijze
	where periode = @periode
  	  and aard = @aard
	    and groepsnaam = @groepsnaam
		and vak = 'AT'

  insert into fr_tussen(versie,hoofdNr,tussenNr,volgNr,tekst)
  select @versie,@hoofdNr,'AT','2','<' + code + 'gem>73</' + code + 'gem>' 
    from fr_collectieveRekenwijze 
	where periode = @periode
	  and aard = @aard
	    and groepsnaam = @groepsnaam
		and vak = 'AT'

  insert into fr_tussen(versie,hoofdNr,tussenNr,volgNr,tekst)
  values(@versie,@hoofdNr,'ZZZ','0','</totaal>')
end
else
begin
  insert into fr_tussen(versie,hoofdNr,tussenNr,volgNr,tekst)
  values(@versie,@hoofdNr,'0','0','<totaal>')

  insert into fr_tussen(versie,hoofdNr,tussenNr,volgNr,tekst)
  select @versie,@hoofdNr,'AT','1','<' + i.code + '>' + i.cijfer + '</' + i.code + '>' 
    from fr_individueleCijfers as i
      where i.periode = @periode
        and i.aard = @aard
          and i.inschrijvingsNr = @inschrijvingsNr
	    and i.vak = 'AT'

  insert into fr_tussen(versie,hoofdNr,tussenNr,volgNr,tekst)
  select @versie,@hoofdNr,'AT','2','<' + i.code + 'gem>' + i.cijfer + '</' + i.code + 'gem>' 
    from fr_collectieveCijfers as i
      where i.periode = @periode
        and i.aard = @aard
          and i.inschrijvingsNr = @inschrijvingsNr
	    and i.vak = 'AT'


  insert into fr_tussen(versie,hoofdNr,tussenNr,volgNr,tekst)
  values(@versie,@hoofdNr,'ZZZ','0','</totaal>')
end